From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Sep 2003 02:18:39 +0000 (+0000)
Subject: (decode-coding-inserted-region): Use car
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25394
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ec4b39c3ef3b2ead97780e2ac96dc92685556bdb;p=emacs.git

(decode-coding-inserted-region): Use car
of the return value of find-operation-coding-system.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 12419ee4681..a82ead3999a 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1850,9 +1850,9 @@ of the function `insert-file-contents'."
 	    (setq coding (funcall set-auto-coding-function
 				  filename (- (point-max) (point-min)))))
 	(or coding
-	    (setq coding (find-operation-coding-system
-			  'insert-file-contents
-			  filename visit beg end replace)))
+	    (setq coding (car (find-operation-coding-system
+			       'insert-file-contents
+			       filename visit beg end replace))))
 	(if (coding-system-p coding)
 	    (or enable-multibyte-characters
 		(setq coding